clear

[x,y]=popinit(1,25,0,0,30,30);
figure(2)
plot(x,y,'r-')
hold on

fill([0 0 20 20 0 ],[2 4 4 2 2 ],[0,0,0])
hold on
fill([10 10 30 30 10 ],[6 8 8 6 6 ],[0,0,0])
hold on
fill([0 0 20 20 0 ],[10 12 12 10 10 ],[0,0,0])
hold on
fill([10 10 30 30 10 ],[15 17 17 15 15 ],[0,0,0])
hold on
fill([15 15 17 19 19 15 ],[30 25 23 25 30 30 ],[0,0,0])
hold on
fill([15 17 19 19 15 15 ],[22 20 22 17 17 22 ],[0,0,0])
hold on

